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Fig. 11. 

connectonStructure 
|str| 

str := super connectonStructure. 

str addConnecton: #OR1 class: OR. 

str addConnecton: #OR2 class: OR. 

str addConnecton: #OR3 class: OR. 

str link: Network gate: #out to: #OR3 gate: #out. 

str link: #OR3 gate: #in1 to: #OR1 gate: #out. 

str link: #OR3 gate: #in2 to: #OR2 gate: #out. 

str link: #OR1 gate: #in1 to: Network gate: #in1. 

str link: #OR1 gate: #in2 to: Network gate: #in2. 

str link: #OR2 gate: #in1 to: Network gate: #in3. 

str link: #OR2 gate: #in2 to: Network gate: #in4. 
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connecto nStructu re 
|str| 

str > super connecto nStructu re. 

str addConnecton: #NOT class: NOT. 

str unlink: Network gate: #out from: #OR3 gate: #out. 

str link: Network gate: #out from: #NOT gate: #out. 

str link: #NOT gate: #in from: #OR3 gate: #out. 



"Obtain the parent class structure" 
"Add a not gate" 
"Unlink OR3 gate" 

"Link the network output to the NOT gate output" 
"Link NOT to OR3 gate" . 
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